#! /usr/bin/perl -w

use strict;
use DBI;

my $dns = "DBI:mysql:host = localhost; databases = cookbook";
my $dhb = DBI->connect( $dns, "", "" )
          or die "Can not connect to mysql server.\n";

print "Connected\n";

$dhb->disconnect();

print "Disconnected\n";
